10 REM    DATEIVERWALTUNG
20 REM  MIT DEM F+M MANAGER
30 :
100 (null)(1270)
110 SI=54272:POKESI+3,8:POKESI+10,8:POKESI+24,15
120 GOSUB1160
130 :
140 PRINT"[147]"CHR$(142)(null)(12,4)"ADRESS-VERWALTUNG"
150 PRINTTAB(11)"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
160 PRINTTAB(11)"1. DATEN BEARBEITEN"
170 PRINTTAB(11)"2. DATEI ANLEGEN"
180 PRINTTAB(11)"3. DIRECTORY"
190 PRINTTAB(11)"4. DISKBEFEHL/STATUS"
200 PRINTTAB(11)"5. ENDE"
210 PRINTTAB(11)"IHRE WAHL ? ";
220 (null)A$,"12345"
230 ON VAL(A$)GOTO 270,800,970,1040,1510
240 REM
250 REM   DATEN BEARBEITEN
260 REM
270 RE = 1
280 PRINT"[147]"TAB(12)"DATEN BEARBEITEN"
290 PRINT"  WELCHE DATEI SOLL BEARBEITET WERDEN ?"
300 PRINT"  NAME  [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166] -> F1"
310 GOSUB1520:GOSUB1530
320 S0$="ADRESSEN"
330 (null)2:(null):(null)3
340 IFS0$=""GOTO140
350 (null) S0$:S0$="L"
360 AR=ASC(LEFT$(IN$,1))+256*ASC(MID$(IN$,2,1))
370 GOSUB480:GOSUB1220
380 GOSUB1390:(null)
390 BE$=LEFT$(S0$,1)
400 IF BE$="L"THEN:RE=ABS(VAL(S1$)):GOSUB480:GOTO380
410 IF BE$="S"THEN:RE=ABS(VAL(S1$)):GOSUB530:GOTO380
420 IF BE$="Q"THEN:(null):RUN
430 IF BE$="F"THEN590
440 GOTO 380
450 :
460 :
470 :
480 FORT=1TO8:(null) RE,T,S$(T-1):NEXT
490 S2$=S$(0):S3$=S$(1):S4$=S$(2)
500 S5$=S$(3):S6$=S$(4):S7$=S$(5)
510 S8$=S$(6):S9$=S$(7):S1$=STR$(RE)
520 RETURN
530 GOSUB 730
540 FORT=1TO8:(null) RE,T,S$(T-1):NEXT
550 RETURN
560 :
570 :
580 :
590 FE=VAL(RIGHT$(S0$,1))
600 IFFE=0THENFE=1
610 GOSUB730
620 F$=S$(FE-1)
630 FOR I=1TOAR:PRINT(null)(13,4)"    [157][157][157][157]";I
640 (null) I,FE,A$
650 IFF$<>LEFT$(A$,LEN(F$))THEN NEXT
660 RE=I:GOSUB480:GOSUB1390:(null)
670 PRINT(null)(10,24)"WEITER SUCHEN (J/N) ?[157]";
680 (null) A$,"JN"
690 IF A$="J"THEN NEXT:GOTO370
700 I=AR : NEXT
710 GOTO380
720 :
730 S$(0)=S2$:S$(1)=S3$:S$(2)=S4$
740 S$(3)=S5$:S$(4)=S6$:S$(5)=S7$
750 S$(6)=S8$:S$(7)=S9$
760 RETURN
770 REM
780 REM   DATEI ANLEGEN
790 REM
800 PRINT"[147]"TAB(12)"DATEI ANLEGEN"
810 PRINTTAB(4)"NAME DER DATEI :[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]:"
820 PRINTTAB(4)"ANZAHL DER DATENSAETZE :[168][168][168][168]:"
830 PRINTTAB(4)"(MAXIMAL 1285 DATENSAETZE)"
840 GOSUB1520:GOSUB1530
850 S0$="ADRESSEN":S1$="50"
860 (null)
870 IF LEN(S0$)=0ORVAL(S1$)=0THENRUN
880 (null) "I"
890 (null)S0$,8,16,16,20,16,4,12,10,20,VAL(S1$)
900 (null) : IF LEFT$(DS$,1)="0"THENRUN
910 PRINT"DISK FEHLER ":PRINT""DS$
920 (null)A$
930 RUN
940 REM
950 REM   DIRECTORY LESEN
960 REM
970 PRINT"[147]"
980 (null)
990 (null)A$
1000 RUN
1010 REM
1020 REM   DISKBEFEHL
1030 REM
1040 PRINT"[147]  DISKBEFEHL / STATUS MIT LEEREINGABE"
1050 PRINT" [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1055 GOSUB1530
1060 (null)
1070 IF S0$=""THEN1090
1080 (null) S0$
1090 (null)
1100 PRINT:PRINTDS$
1110 (null)A$
1120 RUN
1130 END
1140 REM  SOUND
1150 REM
1160 POKESI+4,0:POKESI+11,0
1170 POKESI,75:POKESI+1,34:POKESI+5,10:POKESI+6,0:POKESI+4,65
1180 FORK=1TO300:NEXT
1190 POKESI+7,177:POKESI+8,25:POKESI+12,10:POKESI+13,0:POKESI+11,65
1200 RETURN
1210 :
1220 :
1230 POKESI,75:POKESI+1,34:POKE54277,10:POKE54278,0
1240 FORI=1TO4:POKESI+4,64:POKESI+4,65:FORK=0TO200:NEXT:NEXT
1250 RETURN
1260 :
1270 IFPEEK(2)<>33THEN1290
1280 PRINT(null)(7,24)"DATENSATZ EXISTIERT NICHT! ";:GOTO1300
1290 PRINT(null)(2,23)"DISK ERROR:";DS$;:(null)A$:GOTO140
1300 POKESI+4,0:POKESI+5,0:POKESI+6,245:POKESI+4,33
1310 FORT=10TO0STEP-2:FORR=1TO3:FORI=12TO8STEP-1:POKESI+1,R*I+T:NEXTI,R,T
1320 POKESI+4,0
1330 (null)A$
1340 GOTO380
1350 :
1360 REM
1370 REM
1380 REM
1390 PRINT"[147] BEFEHL      [166][166]    AUSFUEHREN -> F1"
1400 PRINT" DATENSATZ#  [168][168][168][168]"
1410 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1420 PRINT"1) VORNAME     [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1430 PRINT"2) NACHNAME    [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1440 PRINT"3) STRASSE     [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]:"
1450 PRINT"4) WOHNORT     [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1460 PRINT"5) PLZ         [168][168][168][168]"
1470 PRINT"6) TELEFON     [168][168][168][168][168][168][168][168][168][168][168][168]"
1480 PRINT"7) GEBURTSTAG  [168][168][168][168][168][168][168][168][168][168]"
1490 PRINT"8) BEMERKUNG   [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1500 RETURN
1510 PRINT"[147]";:(null)"I":END
1520 PRINT"       ZURUECK MIT LEEREINGABE":RETURN
1530 PRINT"      EINGABE BESTAETIGEN MIT F1":RETURN